﻿Public Class XLQuocTich
    Private kn As New KNQuocTich
    Public Function LayDSQT() As DataTable
        Return kn.DSQT
    End Function
    Public Function SaveQT(ByVal data As DataTable) As Boolean
        Return kn.SaveQT(data)
    End Function
    Public Function BUS_ArrayQT() As ArrayList
        Dim ds As New ArrayList
        Dim d As New DTO_QuocTich
        d.TenNuoc = "[Chọn Nước]"
        ds.Add(d)
        Dim data As New DataTable
        data = kn.DSQT
        For Each dr As DataRow In data.Rows
            d = New DTO_QuocTich
            d.TenNuoc = dr("TenNuoc")
            ds.Add(d)
        Next
        Return ds
    End Function
End Class
